home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_gen
/
instal11.zip
/
UINFO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-01-08
|
880b
|
49 lines
unit Uinfo;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TInfo = class(TForm)
Panel1: TPanel;
OKButton: TBitBtn;
Titre: TLabel;
VersionF: TLabel;
CopyrightAuteur: TLabel;
SousTitre: TLabel;
Label1: TLabel;
procedure OKButtonClick(Sender: TObject);
procedure Initialise(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Info: TInfo;
implementation
uses decla;
{$R *.DFM}
procedure TInfo.OKButtonClick(Sender: TObject);
begin
Close
end;
procedure TInfo.Initialise(Sender: TObject);
begin
Titre.Caption := Title;
SousTitre.Caption := SubTitle;
VersionF.Caption := 'Version v' + Version;
CopyrightAuteur.Caption := '(c)' + copyright + ' by ' + Author;
end;
end.